home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 363 / xlisp20 / xlisp.ini < prev    next >
Text File  |  1985-11-19  |  7KB  |  251 lines
  1. (define-subr    eval            20)
  2. (define-subr    apply            21)
  3. (define-subr    funcall            22)
  4. (define-fsubr    quote            23)
  5. (define-fsubr    function        24)
  6. (define-fsubr    backquote        25)
  7. (define-subr    set            27)
  8. (define-fsubr    setq            28)
  9. (define-fsubr    setf            29)
  10. (define-fsubr    defun            30)
  11. (define-fsubr    defmacro        31)
  12. (define-subr    gensym             32)
  13. (define-subr    make-symbol        33)
  14. (define-subr    intern            34)
  15. (define-subr    symbol-name        35)
  16. (define-subr    symbol-value        36)
  17. (define-subr    symbol-plist        37)
  18. (define-subr    get            38)
  19. (define-subr    putprop            39)
  20. (define-subr    remprop            40)
  21. (define-subr    hash            41)
  22. (define-subr    make-array        42)
  23. (define-subr    aref            43)
  24. (define-subr    car            44)
  25. (define-subr    cdr            45)
  26. (define-subr    caar            46)
  27. (define-subr    cadr            47)
  28. (define-subr    cdar            48)
  29. (define-subr    cddr            49)
  30. (define-subr    caaar            50)
  31. (define-subr    caadr            51)
  32. (define-subr    cadar            52)
  33. (define-subr    caddr            53)
  34. (define-subr    cdaar            54)
  35. (define-subr    cdadr            55)
  36. (define-subr    cddar            56)
  37. (define-subr    cdddr            57)
  38. (define-subr    caaaar            58)
  39. (define-subr    caaadr            59)
  40. (define-subr    caadar            60)
  41. (define-subr    caaddr            61)
  42. (define-subr    cadaar            62)
  43. (define-subr    cadadr            63)
  44. (define-subr    caddar            64)
  45. (define-subr    cadddr            65)
  46. (define-subr    cdaaar            66)
  47. (define-subr    cdaadr            67)
  48. (define-subr    cdadar            68)
  49. (define-subr    cdaddr            69)
  50. (define-subr    cddaar            70)
  51. (define-subr    cddadr            71)
  52. (define-subr    cdddar            72)
  53. (define-subr    cddddr            73)
  54. (define-subr    cons            74)
  55. (define-subr    list            75)
  56. (define-subr    append            76)
  57. (define-subr    reverse            77)
  58. (define-subr    last            78)
  59. (define-subr    nth            79)
  60. (define-subr    nthcdr            80)
  61. (define-subr    member            81)
  62. (define-subr    assoc            82)
  63. (define-subr    subst            83)
  64. (define-subr    sublis            84)
  65. (define-subr    remove            85)
  66. (define-subr    length            86)
  67. (define-subr    mapc            87)
  68. (define-subr    mapcar            88)
  69. (define-subr    mapl            89)
  70. (define-subr    maplist            90)
  71. (define-subr    rplaca            91)
  72. (define-subr    rplacd            92)
  73. (define-subr    nconc            93)
  74. (define-subr    delete            94)
  75. (define-subr    atom            95)
  76. (define-subr    symbolp            96)
  77. (define-subr    numberp            97)
  78. (define-subr    boundp            98)
  79. (define-subr    null            99)
  80. (define-subr    listp            100)
  81. (define-subr    consp            101)
  82. (define-subr    minusp            102)
  83. (define-subr    zerop            103)
  84. (define-subr    plusp            104)
  85. (define-subr    evenp            105)
  86. (define-subr    oddp            106)
  87. (define-subr    eq            107)
  88. (define-subr    eql            108)
  89. (define-subr    equal            109)
  90. (define-fsubr    cond            110)
  91. (define-fsubr    case            111)
  92. (define-fsubr    and            112)
  93. (define-fsubr    or            113)
  94. (define-fsubr    let            114)
  95. (define-fsubr    let*            115)
  96. (define-fsubr    if            116)
  97. (define-fsubr    prog            117)
  98. (define-fsubr    prog*            118)
  99. (define-fsubr    prog1            119)
  100. (define-fsubr    prog2            120)
  101. (define-fsubr    progn            121)
  102. (define-fsubr    go            122)
  103. (define-fsubr    return            123)
  104. (define-fsubr    do            124)
  105. (define-fsubr    do*            125)
  106. (define-fsubr    dolist            126)
  107. (define-fsubr    dotimes            127)
  108. (define-fsubr    catch            128)
  109. (define-subr    throw            129)
  110. (define-subr    error            130)
  111. (define-subr    cerror            131)
  112. (define-subr    break            132)
  113. (define-subr    clean-up        133)
  114. (define-subr    top-level        134)
  115. (define-subr    continue        135)
  116. (define-fsubr    errset            136)
  117. (define-subr    baktrace        137)
  118. (define-subr    evalhook        138)
  119. (define-subr    truncate        139)
  120. (define-subr    float            140)
  121. (define-subr    +            141)
  122. (define-subr    -            142)
  123. (define-subr    *            143)
  124. (define-subr    /            144)
  125. (define-subr    1+            145)
  126. (define-subr    1-            146)
  127. (define-subr    rem            147)
  128. (define-subr    min            148)
  129. (define-subr    max            149)
  130. (define-subr    abs            150)
  131. (define-subr    sin            151)
  132. (define-subr    cos            152)
  133. (define-subr    tan            153)
  134. (define-subr    expt            154)
  135. (define-subr    exp            155)
  136. (define-subr    sqrt            156)
  137. (define-subr    random            157)
  138. (define-subr    logand            158)
  139. (define-subr    logior            159)
  140. (define-subr    logxor            160)
  141. (define-subr    lognot            161)
  142. (define-subr    <            162)
  143. (define-subr    <=            163)
  144. (define-subr    =            164)
  145. (define-subr    /=            165)
  146. (define-subr    >=            166)
  147. (define-subr    >            167)
  148. (define-subr    strcat            168)
  149. (define-subr    subseq            169)
  150. (define-subr    string            170)
  151. (define-subr    char            171)
  152. (define-subr    read            172)
  153. (define-subr    print            173)
  154. (define-subr    prin1            174)
  155. (define-subr    princ            175)
  156. (define-subr    terpri            176)
  157. (define-subr    flatsize        177)
  158. (define-subr    flatc            178)
  159. (define-subr    open            179)
  160. (define-subr    close            181)
  161. (define-subr    read-char        182)
  162. (define-subr    peek-char        183)
  163. (define-subr    write-char        184)
  164. (define-subr    read-line        185)
  165. (define-subr    load            186)
  166. (define-subr    transcript        187)
  167. (define-subr    gc            188)
  168. (define-subr    expand            189)
  169. (define-subr    alloc            190)
  170. (define-subr    mem            191)
  171. (define-subr    save            192)
  172. (define-subr    restore            193)
  173. (define-subr    type-of            194)
  174. (define-subr    exit            195)
  175. (define-subr    peek            196)
  176. (define-subr    poke            197)
  177. (define-subr    address-of        198)
  178. (define-fsubr    defstruct        199)    
  179. (define-subr    %snew            200)
  180. (define-subr    vector            201)
  181. (define-fsubr    block            202)
  182. (define-fsubr    return-from        203)
  183. (define-fsubr    tagbody            204)
  184. (define-fsubr    psetq            205)
  185. (define-fsubr    flet            206)
  186. (define-fsubr    labels            207)
  187. (define-fsubr    macrolet        208)
  188. (define-fsubr    unwind-protect        209)
  189. (define-subr    pprint            210)
  190. (define-subr    string<            211)
  191. (define-subr    string<=        212)
  192. (define-subr    string=            213)
  193. (define-subr    string/=        214)
  194. (define-subr    string>=        215)
  195. (define-subr    string>            216)
  196. (define-subr    string-lessp        217)
  197. (define-subr    string-not-greaterp    218)
  198. (define-subr    string-equal        219)
  199. (define-subr    string-not-equal    220)
  200. (define-subr    string-not-lessp    221)
  201. (define-subr    string-greaterp        222)
  202. (define-subr    integerp        223)
  203. (define-subr    floatp            224)
  204. (define-subr    stringp            225)
  205. (define-subr    arrayp            226)
  206. (define-subr    streamp            227)
  207. (define-subr    objectp            228)
  208. (define-subr    string-upcase        229)
  209. (define-subr    string-downcase        230)
  210. (define-subr    nstring-upcase        231)
  211. (define-subr    nstring-downcase    232)
  212. (define-subr    string-trim        233)
  213. (define-subr    string-left-trim    234)
  214. (define-subr    string-right-trim    235)
  215. (define-fsubr    when            236)
  216. (define-fsubr    unless            237)
  217. (define-fsubr    loop            238)
  218. (define-subr    symbol-function        239)
  219. (define-subr    fboundp            240)
  220. (define-subr    send            241)
  221. (define-subr    send-super        242)
  222. (define-subr    %stypep            243)
  223. (define-subr    %sref            244)
  224. (define-subr    %sset            245)
  225. (define-fsubr    progv            246)
  226.  
  227. ; define some synonyms
  228. (defmacro synonym (x y) `(setf (symbol-function ',x) (symbol-function ',y)))
  229. (synonym    not            null)
  230. (synonym    first            car)
  231. (synonym    second            cadr)
  232. (synonym    third            caddr)
  233. (synonym    fourth            cadddr)
  234. (synonym    rest            cdr)
  235.  
  236. ; define some macros
  237. (defmacro defvar (sym &optional val)
  238.   `(if (boundp ',sym) ,sym (setq ,sym ,val)))
  239. (defmacro defparameter (sym val)
  240.   `(setq ,sym ,val))
  241. (defmacro defconstant (sym val)
  242.   `(setq ,sym ,val))
  243.  
  244. ; load the os specific function definitions
  245. (load "osdefs.ini")
  246.  
  247. ; save the workspace and exit
  248. (save "xlisp.wks")
  249. (exit)
  250.  
  251. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə